1 GOTO500
85 POKEV-22,19:POKEV+K-22,10:POKEV,21:POKEV+K,0:V=V+22:POKESN,200:C=1
86 IFV=7904THENPRINTF$;"[145]AAAA":GOTO300
87 RETURN
110 FORQ=1TO4:POKE7924,21+Q
115 FORW=1TO230
120 POKE646,9:PRINTD$;MID$(B$(Q),W,22)
122 POKE38622,WC:POKE38624,WC
125 IFCA<26THENPRINTD$;"[145]";MID$(CA$,CA,23):GOTO130
127 IFPEEK(7920)=0THENCA=1
130 PRINT""SPC(X+22)"ANOA":POKESN,200
160 IFDTHENPRINTF$;"[145]FGHI":PRINT"[144]AAKAK":WC=9:D=D-1:B=1:GOTO180
165 IFBTHENPRINTF$;"[145]AAAA":WC=8:B=0
170 PRINTF$;"FGHI":IFPEEK(197)=32THEND=6
175 IFPEEK(7904)=1GOTO300
177 IFPEEK(7883)=10THENGOSUB250
180 READX:IFX=77THENPRINTCHR$(19)SPC(20)"AAA":RESTORE:GOTO180
182 PRINT""SPC(X+22)"ALMAA"
185 IFX=3THENIFPEEK(36878)=26THENGOSUB85:GOTO189
188 POKESN,0:IFCTHENPOKESV,26:POKEV-22,19:POKEV+K-22,10:V=7750:C=0
189 IFPEEK(197)=63THENIFD=0THENPOKESV,42:C=1:IFX=3THENREADX:GOTO189
190 CA=CA+1
199 NEXT:NEXT
200 PRINT"[147]":POKE36869,240:POKE36867,PEEK(36867)AND254
210 PRINT"CONGRATULATIONS":END
250 FORI=16TO31STEP.3:POKESV,I:POKESN,249
254 FORI=16TO31STEP.3:POKESV,I:POKESN,249
260 IFI>24THENPOKE7860,20:POKE7860+K,0
280 FORT=1TO40:NEXT
285 NEXT:FORT=1TO2000:NEXT
295 POKE7860,1:POKESN,0:POKESV,26:RETURN
300 POKESV,31:POKESN,200
305 POKESV,31:POKESN,200
310 PRINTF$;"AFGHI"
311 POKE38622,9
320 FORT=1TO200:NEXT
330 FORS=31TO16STEP-1
332 POKESV,S:POKE36876,0:POKE36877,135
340 PRINTF$;"AAAAAA[157][157][157]APQR[145][157][144]T"
360 FORT=1TO100:NEXT
370 NEXT:POKE36877,0:RUN
480 DATA19,19,18,18,17,17,16,16,15,15,14,14,13,13,12,12,11,10,10
481 DATA9,9,8,8,7,7,6,6,5,5,4,4,3,3,3,3,3,3,3,3,3,2,1,0,-1,-2,77
500 POKE36869,255:POKE36867,PEEK(36867)OR1:POKE36879,31
510 K=30720
580 A1$="CCDEDCBCDEDCBDE@EDCDE@EDBDDCBCDEDAAAADCBCBCDEDBDEDE@ECBCBCCBCDC"
582 A2$="CCDEDCBCDEDCBDE@EDCDCBAAAADCBCDEDEDEDE@EDDCDEDCBCDEDCBDE@EDCDED"
583 A3$="CCAAAABCDE@EDDE@EDCDCBAAAADCBCDEDEDEDAAAABCDEDBDE@ECECBCBCCBCDC"
585 B$(1)=A1$+A2$+A1$+A2$:B$(2)=A1$+A2$+A1$+A2$
586 B$(3)=A1$+A2$+A3$+A2$:B$(4)=A1$+A3$+A2$+A3$
590 D$="":F$=LEFT$(D$,10)+""
592 CA$="AJAA"
594 S$="@@@@@@@@@@@@@@@@@@@@@@"
595 POKE646,10:PRINT"[147]";D$;S$;S$;S$:WC=8:CA=26:X=19:V=7728:SV=36878:SN=36877
597 PRINT"":FORI=1TO8:PRINT"AAAAS":NEXT:POKESV,26
598 PRINTF$;"FGHI"
599 GOTO110